home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / t_os / komei4 / komei4.exe / ICON / SWITCH.HD6 < prev    next >
Text File  |  1993-06-04  |  1KB  |  115 lines
  1. ds_name        db    'MOJ\SWITCH',0
  2. paint_wd:
  3.  
  4.     SET_P dt1
  5.  
  6.     call    hata
  7.     mov    word ptr [edi],0
  8.  
  9. re_paint:
  10.  
  11.      WD_CLS 0
  12.      BOX    boxdt,1
  13.  
  14.  
  15.     mov    ah,2
  16.     mov    al,0
  17.     call     MOUSE
  18.  
  19.     call    hata
  20.     cmp    word ptr [edi],0
  21.     jne    pp_1
  22.     call u_con
  23.     jmp    pp_2
  24. pp_1:
  25.     call    u_con1
  26. pp_2:
  27.     mov    ah,100
  28.     mov    al,30
  29.     call    komei1
  30.  
  31.     mov    ah,2
  32.     mov    al,1
  33.     call     MOUSE
  34.      ret
  35.  
  36. hata:
  37.     call    sub_edi
  38.     dw    0
  39.  
  40. u_con:
  41.     call    sub_edi
  42.     dw    0,1,1,15,32,0,7,0
  43. u_con1:
  44.     call    sub_edi
  45.     dw    0,1,1,15,32,0,26,0
  46.  
  47. be_called:
  48.     YOMU    ax,300
  49.     cmp    ax,500
  50.     je    re_paint
  51.      ret
  52.  
  53. mouse_in:
  54.       cmp ch,1
  55.  
  56.      je find2
  57.       ret
  58.  
  59. find2:
  60.     call    hata
  61.     btc    word ptr [edi],1
  62.     cmp    word ptr [edi],0
  63.     je    ff_1
  64.  
  65.     KAKU word ptr 300,4
  66.     CALL_P dt1
  67.  
  68.     call    kesu_ms
  69.  
  70.     jmp    re_paint
  71. ff_1:
  72.     KAKU word ptr 300,3
  73.  
  74.     CALL_P dt1
  75.  
  76.     call    kesu_ms
  77.     jmp    re_paint
  78.  
  79. kesu_ms:
  80.     M_KESUMS
  81.  
  82. zzz:
  83.      BOOK
  84.      mov edi,20[esi]
  85.      call EGB
  86.      ret
  87.  
  88. look_me:
  89.      call sub_esi
  90.      dd 0,0
  91.      dw     1,0,33,33,150,479-33,1,15,0,0
  92.  
  93.  
  94.  
  95. boxdt:
  96.     call sub_edi
  97.         dw    1,33,33,0,0,0,20,5,4,0
  98.  
  99.  
  100. ; [count][sz_x][sz_y][off_x][off_y][+x][+y][f_col][b_col][s_no]
  101.  
  102.  
  103. dt1:
  104.     call sub_edi
  105.     dw ?
  106.     db 'END1',0
  107.  
  108. p_call:
  109.  
  110.     M_P_CALL
  111.  
  112. p_set:
  113.     M_P_SET
  114.  
  115.